MouseOBJ  METHODS

  Use the global instance MOUSE

  procedure Installed:boolean;
  procedure Visible:boolean;
  procedure Hide;
  procedure Show;
  procedure Move(X,Y;integer);
  procedure Confine(X1,Y1,X2,Y2:byte);
  procedure Location(varX,Y:byte);
  procedure Status(varL,C,R:boolean;varX,Y);
  function  Pressed(Button:integer;varX,Y:byte):byte;
  function  Released(Button:integer;varX,Y:byte):byte;
  procedure GetButtons:byte;
  procedure SetMouseCursorStyle(OrdChar,Attr:byte);
  procedure SetLeft(On:boolean);
  procedure Reset;

  Hook Syntax
  Idle Hook       procedure MyIdleHook;

  Pressed Hook    procedure MyPressedHook(var W:word);